home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / technowar.lha / data / techno / bootloader.S < prev    next >
Encoding:
Text File  |  1980-02-06  |  553 b   |  43 lines
  1.  
  2.     section    ddp,code_c
  3.  
  4. doio     = -456
  5.  
  6. boot:    dc.b    "DOS",0
  7.     dc.l    0
  8.     dc.l    880
  9. go:    bra.s    go2
  10.     dc.b    "TWAR"
  11. go2:
  12.     movem.l    d0-d7/a0-a6,-(a7)
  13.  
  14.     move.w    #0,d7
  15.  
  16. claim:    move.l    4,a6
  17.     move.l    #250*1000,d0
  18.     move.l    #$10001,d1
  19.     jsr    -198(a6)            ; alloc
  20.     move.l    d0,$80
  21.     add.l    #1,d7
  22.     cmp.l    #50,d7
  23.     beq    halfmeg
  24.     cmp.l    #$80000,d0
  25.     blt    claim
  26.  
  27.     movem.l    (a7)+,d0-d7/a0-a6
  28.  
  29.     move.l    #$c000,36(a1)        ; 36 = length
  30.     move.l    #$70000,40(a1)        ; 40 = data
  31.     move.l    #$c2000,44(a1)        ; 44 = where
  32.     jsr    doio(a6)
  33.  
  34.     nop
  35.     jsr    $70000
  36.     
  37. halfmeg:
  38.     move.w    $dff006,$dff180
  39.     bra    halfmeg
  40.  
  41.     dcb.b    2000,0
  42.  
  43.